home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 August: Tool Chest / Dev.CD Aug 00 TC Disk 2.toast / pc / sample code / overview / ooptesample / utesample.p < prev   
Encoding:
Text File  |  2000-06-23  |  1.9 KB  |  74 lines
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    UTESample.p        -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Versions:        
  15. #                    1.00                    04/89
  16. #                    1.10                    02/90
  17. #                    1.11                    10/92
  18. #
  19. #    Components:     
  20. #                    BuildOOPTESample            February 1, 1990
  21. #                    MTESample.p                    February 1, 1990
  22. #                    OOPTESample.make            February 1, 1990
  23. #                    TECommon.h                    February 1, 1990
  24. #                    TESampleGlue.a                February 1, 1990
  25. #                    TESample.r                    February 1, 1990
  26. #                    TMLRules.make                February 1, 1990
  27. #                    UApplication.p                February 1, 1990
  28. #                    UApplication.inc1.p            February 1, 1990
  29. #                    UDocument.p                    February 1, 1990
  30. #                    UDocument.inc1.p            February 1, 1990
  31. #                    UTEDocument.p                February 1, 1990
  32. #                    UTEDocument.inc1.p            February 1, 1990
  33. #                    UTESample.p                    February 1, 1990
  34. #                    UTESample.inc1.p            February 1, 1990
  35. #
  36. ---------------------------------------------------------------------}
  37.  
  38. UNIT UTESample;
  39.  
  40. INTERFACE
  41.  
  42. USES
  43.     Types, QuickDraw, Events, OSUtils, ToolUtils, Controls, Windows,
  44.     TextEdit, Dialogs, SegLoad, Fonts, Traps, Menus, Devices, Memory, Scrap, 
  45.     ObjIntf, UDocument, UApplication, UTEDocument;
  46.  
  47. TYPE
  48.     TTESample = OBJECT(TApplication)
  49.     
  50.         { Initialize our application and instance variables }
  51.         PROCEDURE TTESample.ITESample;
  52.         
  53.         { Routines from TApplication we are overriding }
  54.         PROCEDURE TTESample.DoIdle; OVERRIDE;
  55.         PROCEDURE TTESample.AdjustMenus; OVERRIDE;
  56.         PROCEDURE TTESample.AdjustCursor; OVERRIDE;
  57.         PROCEDURE TTESample.DoMenuCommand(menuID,menuItem: integer); OVERRIDE;
  58.         FUNCTION TTESample.HeapNeeded: Longint; OVERRIDE;
  59.         FUNCTION TTESample.SleepVal: LongInt; OVERRIDE;
  60.         
  61.         { Routines for our own devious purposes }
  62.         PROCEDURE TTESample.DoNew;
  63.         PROCEDURE TTESample.Terminate;
  64.     END;
  65.     
  66. VAR
  67.     gTheApplication:    TTESample;
  68.  
  69. IMPLEMENTATION
  70.  
  71. {$I UTESample.inc1.p}
  72.  
  73. END.
  74.